home *** CD-ROM | disk | FTP | other *** search
/ Especial Multimedia / Especial Multimedia.iso / Multimed / Herra / TIMWIN.ZIP / T_DDE.CMD < prev    next >
OS/2 REXX Batch file  |  1993-09-22  |  875b  |  34 lines
  1. ;t_dde  --  test DDE functions
  2. ;
  3. ; This command file program measures several grey value properties
  4. ; of the objects in the 'cermet' image and sends them to an Excel
  5. ; spreadsheet using DDE. To run this program MS-Excel must be running
  6. ; and a sheet named 'SHEET1' must be present.
  7. ;
  8. ;dos "c:\excel\excel.exe"
  9.  
  10. int aant, nn
  11.  
  12. dest p
  13. show p 
  14. dis cermet >a
  15. bord 0
  16. aant = label -128
  17. sub 1
  18. dest q
  19. set update 0              ;no automatic update
  20.  
  21. excelc                    ;close possible open link
  22. excelo "sheet1"           ;open sheet1
  23. for nn = 1 to aant step 1
  24.   mark p nn               ;find next object
  25.   and qc ac               ;use as a mask for grey value object
  26.   stat qc -1              ;determine 15 grey value measures, store in Ibuf
  27.   era qc
  28.   excels 2 nn             ;send Ibuf data
  29. endfor
  30. excelc                    ;close link
  31.  
  32. stop
  33.  
  34.